home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •AdventureLand• / Adventures / Battle of Britain 1 ••••• / Battle of Britain 1 еееее / card_3050.txt < prev    next >
Text File  |  1990-08-26  |  44KB  |  2,194 lines
  1. -- card: 3050 from stack: in
  2. -- bmap block id: 5388
  3. -- flags: 4000
  4. -- background id: 2789
  5. -- name: B
  6. ----- HyperTalk script -----
  7. on openCard
  8.  
  9.   global justVisiting,BBDATE,reset,bbtime,landtime
  10.   put 4 into standby
  11.   put 7 into ordered
  12.   put 8 into landed
  13.   repeat
  14.     if hilite of button ordered is true then
  15.       set hilite of button ordered to false
  16.       set hilite of button landed to true
  17.     end if
  18.     if hilite of button landed is true then
  19.       IF LANDTIME <BBTIME THEN
  20.         SET HILITE OF BUTTON LANDED TO FALSE          --new
  21.         set hilite of button standby to true
  22.  
  23.       end if
  24.     END IF
  25.     add 7 to standby
  26.     add 7 to ordered
  27.     add 7 to landed
  28.     if landed >43 then           --CHANGE
  29.       exit repeat
  30.     end if
  31.   end repeat
  32.  
  33.   if justVisiting is empty then
  34.     exit openCard
  35.   end if
  36.   put 2 into released
  37.   put 3 into avail
  38.   put 5 into patrol
  39.   HIDE CARD FIELD "SHUTDOWN"
  40.   repeat 6 TIMES
  41.     if hilite of button patrol is true then
  42.       send "go" to button patrol
  43.     else
  44.       if hilite of button released is true then
  45.         send "go" to button released
  46.       else
  47.         send "go" to button avail
  48.       end if
  49.     end if
  50.     add 7 to released
  51.     add 7 to avail
  52.     add 7 to patrol
  53.   end repeat
  54.   if bbDate contains "AUG 19" THEN SET THE RECT OF CARD FIELD "HIDESQUADS" TO 372,0,512,342
  55.   if bbDate contains "AUG 28" THEN SET THE RECT OF CARD FIELD "HIDESQUADS" TO 436,0,512,342
  56.   if bbDate contains "AUG 31" THEN SET THE RECT OF CARD FIELD "HIDESQUADS" TO 500,0,512,342
  57.   if reset =1 then
  58.     REPEAT WITH I =1 TO THE NUMBER OF BUTTONS
  59.       SET  HILITE OF BUTTON I TO FALSE
  60.     END REPEAT
  61.     SET HILITE OF BUTTON 4 TO TRUE
  62.     SET HILITE OF BUTTON 11 TO TRUE
  63.     SET HILITE OF BUTTON 18 TO TRUE
  64.     SET HILITE OF BUTTON 25 TO TRUE
  65.     SET HILITE OF BUTTON 32 TO TRUE
  66.     SET HILITE OF BUTTON 39 TO TRUE
  67.     SET RECT OF CARD FIELD "HIDESQUADS" TO 308,0,512,342
  68.     HIDE CARD FIELD "SHUTDOWN"
  69.     repeat with i =166 to 171
  70.       put empty into card field id i
  71.     end repeat
  72.   end if
  73. end openCard
  74. ON SHUTDOWN
  75.   SHOW CARD FIELD "SHUTDOWN" OF CARD "B"             --NEW
  76. END SHUTDOWN
  77. on closecard
  78.   hide card field "outofrange"
  79. end closecard
  80.  
  81.  
  82.  
  83.  
  84. -- part 64 (button)
  85. -- low flags: 00
  86. -- high flags: 0000
  87. -- rect: left=9 top=33 right=137 bottom=95
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: Map
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   go to card "map"
  99. end mouseUp
  100.  
  101.  
  102.  
  103. -- part 121 (button)
  104. -- low flags: 00
  105. -- high flags: 0000
  106. -- rect: left=116 top=44 right=66 bottom=168
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: 
  115. ----- HyperTalk script -----
  116. on mouseDown
  117.   put 28 into releaseDate
  118.   if hilite of ME is true then
  119.     show card field id releaseDate at the mouseh, the mousev
  120.   else
  121.     beep
  122.     exit mouseDown
  123.   end if
  124. end mouseDown
  125.  
  126. on mouseUp
  127.   put 28 into releaseDate
  128.   hide card field id releaseDate
  129. end mouseUp
  130.  
  131. on go
  132.   GLOBAL AVAIL,RELEASEDATE
  133.   put 3 into avail
  134.   put 28 into releaseDate
  135.   RELEASE
  136. END GO
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154. -- part 122 (button)
  155. -- low flags: 00
  156. -- high flags: 0000
  157. -- rect: left=116 top=65 right=85 bottom=168
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: 
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   beep
  169.   if hilite of me is false then exit mouseUp
  170.   SHOW CARD FIELD "PUB" at the mouseh, the mousev
  171. end mouseUp
  172.  
  173. on go
  174.   put 4 into standby
  175.   if hilite of ME is true then
  176.     set the hilite of  ME to false
  177.     set the hilite of button standby to true
  178.   end if
  179. end go
  180.  
  181.  
  182.  
  183.  
  184.  
  185. -- part 123 (button)
  186. -- low flags: 00
  187. -- high flags: 4000
  188. -- rect: left=116 top=84 right=108 bottom=168
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 1
  192. -- font id: 0
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: 
  197. ----- HyperTalk script -----
  198. on mouseUp
  199.   beep
  200. end mouseUp
  201.  
  202.  
  203.  
  204.  
  205. -- part 124 (button)
  206. -- low flags: 00
  207. -- high flags: 0000
  208. -- rect: left=116 top=107 right=132 bottom=168
  209. -- title width / last selected line: 0
  210. -- icon id / first selected line: 0 / 0
  211. -- text alignment: 1
  212. -- font id: 0
  213. -- text size: 12
  214. -- style flags: 0
  215. -- line height: 16
  216. -- part name: 
  217. ----- HyperTalk script -----
  218. on mouseDown
  219.   put 2 into released
  220.   put 3 into avail
  221.  
  222.   if hilite of button released is true or hilite of button avail is true then
  223.     beep
  224.     show card field "nono" at the mouseh, the mousev
  225.   end if
  226. end mouseDown
  227.  
  228. on mouseUp
  229.   global warning
  230.   put 4 into standby
  231.   put "183,210" into coord     ---CHANGES
  232.   put 56 into idplane
  233.  
  234.   if hilite of button standby is true then
  235.     if warning is not "L" and warning is not "N" then
  236.       set hilite of button standby to false
  237.       set hilite of ME to true
  238.       --set icon of button id idplane of card "Map" to 6071
  239.       show button id idplane of card "map" at coord
  240.     else
  241.       beep
  242.       show card field "outOfRange" at the mouseh, the mousev
  243.     end if
  244.   end if
  245.   hide card field "nono"
  246. end mouseUp
  247.  
  248. on go
  249.   put 4 into standby
  250.   put 56 into idplane
  251.   put "183,210" into coord
  252.  
  253.   set hilite of me to false
  254.   set hilite of button standby to true
  255.   hide button id idplane of card "map"
  256.  
  257. end go
  258.  
  259.  
  260.  
  261.  
  262.  
  263.  
  264.  
  265.  
  266.  
  267. -- part 125 (button)
  268. -- low flags: 00
  269. -- high flags: 0000
  270. -- rect: left=116 top=144 right=172 bottom=168
  271. -- title width / last selected line: 0
  272. -- icon id / first selected line: 0 / 0
  273. -- text alignment: 1
  274. -- font id: 0
  275. -- text size: 12
  276. -- style flags: 0
  277. -- line height: 16
  278. -- part name: SQ615B
  279. ----- HyperTalk script -----
  280. on mouseUp
  281.   --global warning,objective,range,range2
  282.   global avail,standby,patrol,detail,idplane,enroute,warning
  283.   if warning is empty then
  284.     beep
  285.     show card field "whatraid" at the mouseh, the mousev
  286.     exit mouseUp
  287.   end if
  288.  
  289.   put 3 into avail
  290.   put 4 into standby
  291.   put 5 into patrol
  292.   put 6 into detail                                         --CHANGES
  293.   put 56 into idplane
  294.   put "B" into enroute
  295.   detail
  296. end mouseUp
  297.  
  298. on go
  299.   global numSquads,force,avail,standby,patrol,detail,idplane,sorties
  300.   put 3 into avail
  301.   put 4 into standby
  302.   put 5 into patrol
  303.   put 6 into detail                                         --CHANGES
  304.   put 56 into idplane
  305.   put 166 into sorties
  306.   if hilite of button patrol is true or hilite of button standby is true then
  307.     add 2 to force                                        --CHANGES
  308.     set hilite of button patrol to false
  309.     set hilite of button standby to false
  310.   end if
  311.   if hilite of button avail is true then add 1.5 to force   --CHANGES
  312.   put the length of card field id sorties into exp
  313.   divide exp by 20
  314.   add exp to force
  315.   put "/" after card field id sorties
  316.   goa
  317. end go
  318.  
  319.  
  320. on results
  321.   global damage,force,bforce,fforce,done
  322.   global released,avail,releaseDate,base,coord,idplane,sorties
  323.   put 2 into released
  324.   put 3 into avail
  325.   put 28 into releaseDate                                 --CHANGES
  326.   put "B" into base
  327.   put "183,210" into coord
  328.   put 56 into idplane
  329.   put 166 into sorties
  330.   resultsa
  331. end results
  332.  
  333.  
  334.  
  335.  
  336.  
  337.  
  338.  
  339.  
  340.  
  341. -- part 126 (button)
  342. -- low flags: 00
  343. -- high flags: 0000
  344. -- rect: left=116 top=171 right=201 bottom=168
  345. -- title width / last selected line: 0
  346. -- icon id / first selected line: 0 / 0
  347. -- text alignment: 1
  348. -- font id: 0
  349. -- text size: 12
  350. -- style flags: 0
  351. -- line height: 16
  352. -- part name: 
  353. ----- HyperTalk script -----
  354. on mouseUp
  355.   global coord,patrol,detail,idplane
  356.   put "183,210" into coord
  357.   put 5 into patrol
  358.   put 6 into detail                                          --CHANGES
  359.   put 56 into idplane
  360.   land
  361. end mouseUp
  362.  
  363.  
  364.  
  365.  
  366.  
  367. -- part 127 (button)
  368. -- low flags: 00
  369. -- high flags: 0000
  370. -- rect: left=116 top=200 right=229 bottom=168
  371. -- title width / last selected line: 0
  372. -- icon id / first selected line: 0 / 0
  373. -- text alignment: 1
  374. -- font id: 0
  375. -- text size: 12
  376. -- style flags: 0
  377. -- line height: 16
  378. -- part name: 
  379. ----- HyperTalk script -----
  380. on mouseUp
  381.   beep
  382. end mouseUp
  383.  
  384.  
  385.  
  386.  
  387. -- part 128 (button)
  388. -- low flags: 00
  389. -- high flags: 0000
  390. -- rect: left=180 top=44 right=66 bottom=232
  391. -- title width / last selected line: 0
  392. -- icon id / first selected line: 0 / 0
  393. -- text alignment: 1
  394. -- font id: 0
  395. -- text size: 12
  396. -- style flags: 0
  397. -- line height: 16
  398. -- part name: 
  399. ----- HyperTalk script -----
  400. on mouseDown
  401.   put 60 into releaseDate                   --CHANGE
  402.   if hilite of ME is true then
  403.     show card field id releaseDate at the mouseh, the mousev
  404.   else
  405.     beep
  406.     exit mouseDown
  407.   end if
  408. end mouseDown
  409.  
  410. on mouseUp
  411.   put 60 into releaseDate                    --CHANGE
  412.   hide card field id releaseDate
  413. end mouseUp
  414.  
  415. on go
  416.   GLOBAL AVAIL,RELEASEDATE
  417.   put 10 into avail                           --CHANGES
  418.   put 60 into releaseDate
  419.   RELEASE
  420. END GO
  421.  
  422.  
  423.  
  424.  
  425.  
  426.  
  427.  
  428.  
  429.  
  430.  
  431.  
  432.  
  433.  
  434. -- part 129 (button)
  435. -- low flags: 00
  436. -- high flags: 0000
  437. -- rect: left=180 top=65 right=85 bottom=232
  438. -- title width / last selected line: 0
  439. -- icon id / first selected line: 0 / 0
  440. -- text alignment: 1
  441. -- font id: 0
  442. -- text size: 12
  443. -- style flags: 0
  444. -- line height: 16
  445. -- part name: 
  446. ----- HyperTalk script -----
  447. on mouseup
  448.   beep
  449.   if hilite of me is false then exit mouseUp
  450.   SHOW CARD FIELD "PUB" at the mouseh, the mousev
  451. end mouseup
  452.  
  453. on go
  454.  
  455.   put 11 into standby
  456.   if hilite of me is true then
  457.     set the hilite of me to false
  458.     set the hilite of button standby to true
  459.   end if
  460. end go
  461.  
  462.  
  463.  
  464.  
  465.  
  466. -- part 130 (button)
  467. -- low flags: 00
  468. -- high flags: 4000
  469. -- rect: left=180 top=84 right=108 bottom=232
  470. -- title width / last selected line: 0
  471. -- icon id / first selected line: 0 / 0
  472. -- text alignment: 1
  473. -- font id: 0
  474. -- text size: 12
  475. -- style flags: 0
  476. -- line height: 16
  477. -- part name: 
  478. ----- HyperTalk script -----
  479. on mouseUp
  480.   beep
  481. end mouseUp
  482.  
  483.  
  484.  
  485.  
  486. -- part 131 (button)
  487. -- low flags: 00
  488. -- high flags: 0000
  489. -- rect: left=180 top=107 right=132 bottom=232
  490. -- title width / last selected line: 0
  491. -- icon id / first selected line: 0 / 0
  492. -- text alignment: 1
  493. -- font id: 0
  494. -- text size: 12
  495. -- style flags: 0
  496. -- line height: 16
  497. -- part name: 
  498. ----- HyperTalk script -----
  499. on mouseDown
  500.   put 9 into released
  501.   put 10 into avail
  502.   if hilite of button released is true or hilite of button avail is true then
  503.     beep
  504.     show card field "nono" at the mouseh, the mousev
  505.   end if
  506. end mouseDown
  507.  
  508. on mouseUp
  509.   global warning
  510.   put 11 into standby
  511.   put "198,187" into coord               --CHANGES
  512.   put 58 into idplane
  513.  
  514.   if hilite of button standby is true then
  515.     if warning is not "L" and warning is not "N" then
  516.       set hilite of button standby to false
  517.       set hilite of ME to true
  518.       show button id idplane of card "map" at coord
  519.     else
  520.       beep
  521.       show card field "outOfRange" at the mouseh, the mousev
  522.     end if
  523.   end if
  524.   hide card field "nono"
  525. end mouseUp
  526.  
  527. on go
  528.   put 11 into standby                                     --CHANGES
  529.   put 58 into idplane
  530.   put "198,187" into coord
  531.  
  532.   set hilite of me to false
  533.   set hilite of button standby to true
  534.   hide button id idplane of card "map"
  535.  
  536. end go
  537.  
  538.  
  539.  
  540.  
  541.  
  542.  
  543.  
  544.  
  545. -- part 132 (button)
  546. -- low flags: 00
  547. -- high flags: 0000
  548. -- rect: left=180 top=144 right=172 bottom=232
  549. -- title width / last selected line: 0
  550. -- icon id / first selected line: 0 / 0
  551. -- text alignment: 1
  552. -- font id: 0
  553. -- text size: 12
  554. -- style flags: 0
  555. -- line height: 16
  556. -- part name: SQD64B
  557. ----- HyperTalk script -----
  558. on mouseUp
  559.   --global warning,objective,range,range2
  560.   global avail,standby,patrol,detail,idplane,enroute,warning
  561.   if warning is empty then
  562.     beep
  563.     show card field "whatraid" at the mouseh, the mousev
  564.     exit mouseUp
  565.   end if
  566.  
  567.   put 10 into avail
  568.   put 11 into standby
  569.   put 12 into patrol
  570.   put 13 into detail                                         --CHANGES
  571.   put 58 into idplane
  572.   put "B" into enroute
  573.   detail
  574. end mouseUp
  575.  
  576. on go
  577.   global numSquads,force,avail,standby,patrol,detail,idplane
  578.   put 10 into avail
  579.   put 11 into standby
  580.   put 12 into patrol
  581.   put 13 into detail                                         --CHANGES
  582.   put 58 into idplane
  583.   put 167 into sorties
  584.   if hilite of button patrol is true or hilite of button standby is true then
  585.     add 3 to force                                        --CHANGES
  586.     set hilite of button patrol to false
  587.     set hilite of button standby to false
  588.   end if
  589.   if hilite of button avail is true then add 2 to force  --CHANGES
  590.   put the length of card field id sorties into exp
  591.   divide exp by 20
  592.   add exp to force
  593.   put "/" after card field id sorties
  594.   goa
  595. end go
  596.  
  597.  
  598. on results
  599.   global damage,force,bforce,fforce,done
  600.   global released,avail,releaseDate,base,coord,idplane,sorties
  601.   put 9 into released
  602.   put 10 into avail
  603.   put 60 into releaseDate                                 --CHANGES
  604.   put "B" into base
  605.   put "198,187" into coord
  606.   put 58 into idplane
  607.   put 167 into sorties
  608.   resultsa
  609. end results
  610.  
  611.  
  612.  
  613.  
  614.  
  615.  
  616.  
  617.  
  618.  
  619.  
  620.  
  621.  
  622.  
  623.  
  624.  
  625.  
  626. -- part 133 (button)
  627. -- low flags: 00
  628. -- high flags: 0000
  629. -- rect: left=180 top=171 right=201 bottom=232
  630. -- title width / last selected line: 0
  631. -- icon id / first selected line: 0 / 0
  632. -- text alignment: 1
  633. -- font id: 0
  634. -- text size: 12
  635. -- style flags: 0
  636. -- line height: 16
  637. -- part name: 
  638. ----- HyperTalk script -----
  639. on mouseUp
  640.   global coord,patrol,detail,idplane
  641.   put "198,187" into coord
  642.   put 12 into patrol
  643.   put 13 into detail                                          --CHANGES
  644.   put 58 into idplane
  645.   land
  646. end mouseUp
  647.  
  648.  
  649.  
  650.  
  651.  
  652. -- part 134 (button)
  653. -- low flags: 00
  654. -- high flags: 0000
  655. -- rect: left=180 top=200 right=229 bottom=232
  656. -- title width / last selected line: 0
  657. -- icon id / first selected line: 0 / 0
  658. -- text alignment: 1
  659. -- font id: 0
  660. -- text size: 12
  661. -- style flags: 0
  662. -- line height: 16
  663. -- part name: 
  664. ----- HyperTalk script -----
  665. on mouseUp
  666.   beep
  667. end mouseUp
  668.  
  669.  
  670.  
  671.  
  672. -- part 135 (button)
  673. -- low flags: 00
  674. -- high flags: 0000
  675. -- rect: left=244 top=44 right=66 bottom=296
  676. -- title width / last selected line: 0
  677. -- icon id / first selected line: 0 / 0
  678. -- text alignment: 1
  679. -- font id: 0
  680. -- text size: 12
  681. -- style flags: 0
  682. -- line height: 16
  683. -- part name: 
  684. ----- HyperTalk script -----
  685. on mouseDown
  686.   put 61 into releaseDate                   --CHANGE
  687.   if hilite of ME is true then
  688.     show card field id releaseDate at the mouseh, the mousev
  689.   else
  690.     beep
  691.     exit mouseDown
  692.   end if
  693. end mouseDown
  694.  
  695. on mouseUp
  696.   put 61 into releaseDate                    --CHANGE
  697.   hide card field id releaseDate
  698. end mouseUp
  699.  
  700. on go
  701.   GLOBAL AVAIL,RELEASEDATE
  702.   put 17 into avail                           --CHANGES
  703.   put 61 into releaseDate
  704.   RELEASE
  705. END GO
  706.  
  707.  
  708.  
  709.  
  710. -- part 136 (button)
  711. -- low flags: 00
  712. -- high flags: 0000
  713. -- rect: left=244 top=65 right=85 bottom=296
  714. -- title width / last selected line: 0
  715. -- icon id / first selected line: 0 / 0
  716. -- text alignment: 1
  717. -- font id: 0
  718. -- text size: 12
  719. -- style flags: 0
  720. -- line height: 16
  721. -- part name: 
  722. ----- HyperTalk script -----
  723. on mouseUp
  724.   beep
  725.   if hilite of me is false then exit mouseUp
  726.   SHOW CARD FIELD "PUB" at the mouseh, the mousev
  727. end mouseUp
  728.  
  729. on go
  730.  
  731.   put 18 into standby
  732.  
  733.   if hilite of me is true then
  734.     set the hilite of me to false
  735.     set the hilite of button standby to true
  736.   end if
  737.  
  738.  
  739. end go
  740.  
  741.  
  742.  
  743.  
  744.  
  745. -- part 137 (button)
  746. -- low flags: 00
  747. -- high flags: 4000
  748. -- rect: left=244 top=84 right=108 bottom=296
  749. -- title width / last selected line: 0
  750. -- icon id / first selected line: 0 / 0
  751. -- text alignment: 1
  752. -- font id: 0
  753. -- text size: 12
  754. -- style flags: 0
  755. -- line height: 16
  756. -- part name: 
  757. ----- HyperTalk script -----
  758. on mouseup
  759.   beep
  760. end mouseup
  761.  
  762.  
  763.  
  764.  
  765. -- part 138 (button)
  766. -- low flags: 00
  767. -- high flags: 0000
  768. -- rect: left=244 top=107 right=132 bottom=296
  769. -- title width / last selected line: 0
  770. -- icon id / first selected line: 0 / 0
  771. -- text alignment: 1
  772. -- font id: 0
  773. -- text size: 12
  774. -- style flags: 0
  775. -- line height: 16
  776. -- part name: 
  777. ----- HyperTalk script -----
  778. on mouseDown
  779.   put 16 into released             -- CHANGES
  780.   put 17 into avail
  781.  
  782.   if hilite of button released is true or hilite of button avail is true then
  783.     beep
  784.     show card field "nono" at the mouseh, the mousev
  785.   end if
  786. end mouseDown
  787.  
  788. on mouseUp
  789.   global warning
  790.   put 18 into standby
  791.   put "198,202" into coord
  792.   put 59 into idplane
  793.  
  794.   if hilite of button standby is true then
  795.     if warning is not "L" and warning is not "N" then
  796.       set hilite of button standby to false
  797.       set hilite of ME to true
  798.       --set icon of button id idplane of card "Map" to 6071
  799.       show button id idplane of card "map" at coord
  800.     else
  801.       beep
  802.       show card field "outOfRange" at the mouseh, the mousev
  803.     end if
  804.   end if
  805.   hide card field "nono"
  806. end mouseUp
  807.  
  808. on go
  809.   put 18 into standby
  810.   put "198,202" into coord
  811.   put 59 into idplane
  812.  
  813.   set hilite of me to false
  814.   set hilite of button standby to true
  815.   hide button id idplane of card "map"
  816. end go
  817.  
  818.  
  819.  
  820.  
  821.  
  822.  
  823.  
  824.  
  825.  
  826.  
  827.  
  828.  
  829. -- part 60 (field)
  830. -- low flags: 81
  831. -- high flags: 2004
  832. -- rect: left=171 top=33 right=89 bottom=246
  833. -- title width / last selected line: 0
  834. -- icon id / first selected line: 0 / 0
  835. -- text alignment: 1
  836. -- font id: 3
  837. -- text size: 9
  838. -- style flags: 0
  839. -- line height: 10
  840. -- part name: releaseDate2
  841. ----- HyperTalk script -----
  842. on mouseUp
  843.   hide card field "releaseDate2"
  844. end mouseUp
  845.  
  846.  
  847.  
  848. -- part 139 (button)
  849. -- low flags: 00
  850. -- high flags: 0000
  851. -- rect: left=244 top=144 right=172 bottom=296
  852. -- title width / last selected line: 0
  853. -- icon id / first selected line: 0 / 0
  854. -- text alignment: 1
  855. -- font id: 0
  856. -- text size: 12
  857. -- style flags: 0
  858. -- line height: 16
  859. -- part name: SQ111B
  860. ----- HyperTalk script -----
  861. on mouseUp
  862.   --global warning,objective,range,range2
  863.   global avail,standby,patrol,detail,idplane,enroute,warning
  864.   if warning is empty then
  865.     beep
  866.     show card field "whatraid" at the mouseh, the mousev
  867.     exit mouseUp
  868.   end if
  869.  
  870.   put 17 into avail
  871.   put 18 into standby
  872.   put 19 into patrol
  873.   put 20 into detail                                         --CHANGES
  874.   put 59 into idplane
  875.   put "B" into enroute
  876.   detail
  877. end mouseUp
  878.  
  879. on go
  880.   global numSquads,force,avail,standby,patrol,detail,idplane
  881.   put 17 into avail
  882.   put 18 into standby
  883.   put 19 into patrol
  884.   put 20 into detail                                         --CHANGES
  885.   put 59 into idplane
  886.   put 168 into sorties
  887.   if hilite of button patrol is true or hilite of button standby is true then
  888.     add 2 to force                                        --CHANGES
  889.     set hilite of button patrol to false
  890.     set hilite of button standby to false
  891.   end if
  892.   if hilite of button avail is true then add 1.5 to force     --CHANGES
  893.   put the length of card field id sorties into exp
  894.   divide exp by 20
  895.   add exp to force
  896.   put "/" after card field id sorties
  897.   goa
  898. end go
  899.  
  900.  
  901. on results
  902.   global damage,force,bforce,fforce,done
  903.   global released,avail,releaseDate,base,coord,idplane,sorties
  904.   put 16 into released
  905.   put 17 into avail
  906.   put 61 into releaseDate                                 --CHANGES
  907.   put "B" into base
  908.   put "198,202" into coord
  909.   put 59 into idplane
  910.   put 168 into sorties
  911.   resultsa
  912. end results
  913.  
  914.  
  915.  
  916.  
  917.  
  918.  
  919.  
  920.  
  921.  
  922.  
  923.  
  924.  
  925.  
  926.  
  927. -- part 140 (button)
  928. -- low flags: 00
  929. -- high flags: 0000
  930. -- rect: left=244 top=171 right=201 bottom=296
  931. -- title width / last selected line: 0
  932. -- icon id / first selected line: 0 / 0
  933. -- text alignment: 1
  934. -- font id: 0
  935. -- text size: 12
  936. -- style flags: 0
  937. -- line height: 16
  938. -- part name: 
  939. ----- HyperTalk script -----
  940. on mouseUp
  941.   global coord,patrol,detail,idplane
  942.   put "198,202" into coord
  943.   put 19 into patrol
  944.   put 20 into detail                                          --CHANGES
  945.   put 59 into idplane
  946.   land
  947. end mouseUp
  948.  
  949.  
  950.  
  951.  
  952. -- part 141 (button)
  953. -- low flags: 00
  954. -- high flags: 0000
  955. -- rect: left=244 top=200 right=229 bottom=296
  956. -- title width / last selected line: 0
  957. -- icon id / first selected line: 0 / 0
  958. -- text alignment: 1
  959. -- font id: 0
  960. -- text size: 12
  961. -- style flags: 0
  962. -- line height: 16
  963. -- part name: 
  964. ----- HyperTalk script -----
  965. on mouseUp
  966.   beep
  967. end mouseUp
  968.  
  969.  
  970.  
  971.  
  972. -- part 142 (button)
  973. -- low flags: 00
  974. -- high flags: 0000
  975. -- rect: left=308 top=44 right=66 bottom=360
  976. -- title width / last selected line: 0
  977. -- icon id / first selected line: 0 / 0
  978. -- text alignment: 1
  979. -- font id: 0
  980. -- text size: 12
  981. -- style flags: 0
  982. -- line height: 16
  983. -- part name: 
  984. ----- HyperTalk script -----
  985. on mouseDown
  986.   put 62 into releaseDate                   --CHANGE
  987.   if hilite of ME is true then
  988.     show card field id releaseDate at the mouseh, the mousev
  989.   else
  990.     beep
  991.     exit mouseDown
  992.   end if
  993. end mouseDown
  994.  
  995. on mouseUp
  996.   put 62 into releaseDate                    --CHANGE
  997.   hide card field id releaseDate
  998. end mouseUp
  999.  
  1000. on go
  1001.   GLOBAL AVAIL,RELEASEDATE
  1002.   put 24 into avail                           --CHANGES
  1003.   put 62 into releaseDate
  1004.   RELEASE
  1005. END GO
  1006.  
  1007.  
  1008.  
  1009.  
  1010.  
  1011.  
  1012.  
  1013.  
  1014.  
  1015.  
  1016.  
  1017.  
  1018.  
  1019.  
  1020.  
  1021.  
  1022. -- part 144 (button)
  1023. -- low flags: 00
  1024. -- high flags: 0000
  1025. -- rect: left=308 top=65 right=85 bottom=360
  1026. -- title width / last selected line: 0
  1027. -- icon id / first selected line: 0 / 0
  1028. -- text alignment: 1
  1029. -- font id: 0
  1030. -- text size: 12
  1031. -- style flags: 0
  1032. -- line height: 16
  1033. -- part name: 
  1034. ----- HyperTalk script -----
  1035. on mouseUp
  1036.   beep
  1037.   if hilite of me is false then exit mouseUp
  1038.   SHOW CARD FIELD "PUB" at the mouseh, the mousev
  1039. end mouseUp
  1040.  
  1041. on go
  1042.  
  1043.   put 25 into standby
  1044.  
  1045.   if hilite of me is true then
  1046.     set the hilite of me to false
  1047.     set the hilite of button standby to true
  1048.   end if
  1049.  
  1050.  
  1051. end go
  1052.  
  1053.  
  1054.  
  1055.  
  1056.  
  1057. -- part 145 (button)
  1058. -- low flags: 00
  1059. -- high flags: 4000
  1060. -- rect: left=308 top=84 right=108 bottom=360
  1061. -- title width / last selected line: 0
  1062. -- icon id / first selected line: 0 / 0
  1063. -- text alignment: 1
  1064. -- font id: 0
  1065. -- text size: 12
  1066. -- style flags: 0
  1067. -- line height: 16
  1068. -- part name: 
  1069. ----- HyperTalk script -----
  1070. on mouseup
  1071.   beep
  1072. end mouseup
  1073.  
  1074.  
  1075.  
  1076.  
  1077. -- part 146 (button)
  1078. -- low flags: 00
  1079. -- high flags: 0000
  1080. -- rect: left=308 top=107 right=132 bottom=360
  1081. -- title width / last selected line: 0
  1082. -- icon id / first selected line: 0 / 0
  1083. -- text alignment: 1
  1084. -- font id: 0
  1085. -- text size: 12
  1086. -- style flags: 0
  1087. -- line height: 16
  1088. -- part name: 
  1089. ----- HyperTalk script -----
  1090. on mouseDown
  1091.   put 23 into released
  1092.   put 24 into avail
  1093.  
  1094.   if hilite of button released is true or hilite of button avail is true then
  1095.     beep
  1096.     show card field "nono" at the mouseh, the mousev
  1097.   end if
  1098. end mouseDown
  1099.  
  1100. on mouseUp
  1101.   global warning
  1102.   put 25 into standby
  1103.   put "168,202" into coord               --CHANGES
  1104.   put 60 into idplane
  1105.  
  1106.   if hilite of button standby is true then
  1107.     if warning is not "L" and warning is not "N" then
  1108.       set hilite of button standby to false
  1109.       set hilite of ME to true
  1110.       --set icon of button id idplane of card "Map" to 6071
  1111.       show button id idplane of card "map" at coord
  1112.     else
  1113.       beep
  1114.       show card field "outOfRange" at the mouseh, the mousev
  1115.     end if
  1116.   end if
  1117.   hide card field "nono"
  1118. end mouseUp
  1119.  
  1120. on go
  1121.   put 25 into standby
  1122.   put "168,202" into coord               --CHANGES
  1123.   put 60 into idplane
  1124.   set hilite of me to false
  1125.   set hilite of button standby to true
  1126.   hide button id idplane of card "map"
  1127. end go
  1128.  
  1129.  
  1130.  
  1131.  
  1132.  
  1133.  
  1134.  
  1135.  
  1136.  
  1137. -- part 147 (button)
  1138. -- low flags: 00
  1139. -- high flags: 0000
  1140. -- rect: left=308 top=144 right=172 bottom=360
  1141. -- title width / last selected line: 0
  1142. -- icon id / first selected line: 0 / 0
  1143. -- text alignment: 1
  1144. -- font id: 0
  1145. -- text size: 12
  1146. -- style flags: 0
  1147. -- line height: 16
  1148. -- part name: SQD72B
  1149. ----- HyperTalk script -----
  1150. on mouseUp
  1151.   --global warning,objective,range,range2
  1152.   global avail,standby,patrol,detail,idplane,enroute,warning
  1153.   if warning is empty then
  1154.     beep
  1155.     show card field "whatraid" at the mouseh, the mousev
  1156.     exit mouseUp
  1157.   end if
  1158.  
  1159.   put 24 into avail
  1160.   put 25 into standby
  1161.   put 26 into patrol
  1162.   put 27 into detail                                         --CHANGES
  1163.   put 60 into idplane
  1164.   put "B" into enroute
  1165.   detail
  1166. end mouseUp
  1167.  
  1168. on go
  1169.   global numSquads,force,avail,standby,patrol,detail,idplane
  1170.   put 24 into avail
  1171.   put 25 into standby
  1172.   put 26 into patrol
  1173.   put 27 into detail                                         --CHANGES
  1174.   put 60 into idplane
  1175.   put 169 into sorties
  1176.   if hilite of button patrol is true or hilite of button standby is true then
  1177.     add 3 to force                                        --CHANGES
  1178.     set hilite of button patrol to false
  1179.     set hilite of button standby to false
  1180.   end if
  1181.   if hilite of button avail is true then add 2 to force     --CHANGES
  1182.   put the length of card field id sorties into exp
  1183.   divide exp by 20
  1184.   add exp to force
  1185.   put "/" after card field id sorties
  1186.   goa
  1187. end go
  1188.  
  1189.  
  1190. on results
  1191.   global damage,force,bforce,fforce,done
  1192.   global released,avail,releaseDate,base,coord,idplane,sorties
  1193.   put 23 into released
  1194.   put 24 into avail
  1195.   put 62 into releaseDate                                 --CHANGES
  1196.   put "B" into base
  1197.   put "168,202" into coord
  1198.   put 60 into idplane
  1199.   put 169 into sorties
  1200.   resultsa
  1201. end results
  1202.  
  1203.  
  1204.  
  1205.  
  1206.  
  1207.  
  1208.  
  1209.  
  1210.  
  1211.  
  1212.  
  1213.  
  1214.  
  1215. -- part 148 (button)
  1216. -- low flags: 00
  1217. -- high flags: 0000
  1218. -- rect: left=308 top=171 right=201 bottom=360
  1219. -- title width / last selected line: 0
  1220. -- icon id / first selected line: 0 / 0
  1221. -- text alignment: 1
  1222. -- font id: 0
  1223. -- text size: 12
  1224. -- style flags: 0
  1225. -- line height: 16
  1226. -- part name: 
  1227. ----- HyperTalk script -----
  1228. on mouseUp
  1229.   global coord,patrol,detail,idplane
  1230.   put "168,202" into coord
  1231.   put 26 into patrol
  1232.   put 27 into detail                                          --CHANGES
  1233.   put 60 into idplane
  1234.   land
  1235. end mouseUp
  1236.  
  1237.  
  1238.  
  1239.  
  1240.  
  1241. -- part 149 (button)
  1242. -- low flags: 00
  1243. -- high flags: 0000
  1244. -- rect: left=308 top=200 right=229 bottom=360
  1245. -- title width / last selected line: 0
  1246. -- icon id / first selected line: 0 / 0
  1247. -- text alignment: 1
  1248. -- font id: 0
  1249. -- text size: 12
  1250. -- style flags: 0
  1251. -- line height: 16
  1252. -- part name: 
  1253. ----- HyperTalk script -----
  1254. on mouseUp
  1255.   beep
  1256. end mouseUp
  1257.  
  1258.  
  1259.  
  1260. -- part 150 (button)
  1261. -- low flags: 00
  1262. -- high flags: 0000
  1263. -- rect: left=372 top=44 right=66 bottom=424
  1264. -- title width / last selected line: 0
  1265. -- icon id / first selected line: 0 / 0
  1266. -- text alignment: 1
  1267. -- font id: 0
  1268. -- text size: 12
  1269. -- style flags: 0
  1270. -- line height: 16
  1271. -- part name: 
  1272. ----- HyperTalk script -----
  1273. on mouseDown
  1274.   put 63 into releaseDate                   --CHANGE
  1275.   if hilite of ME is true then
  1276.     show card field id releaseDate at the mouseh, the mousev
  1277.   else
  1278.     beep
  1279.     exit mouseDown
  1280.   end if
  1281. end mouseDown
  1282.  
  1283. on mouseUp
  1284.   put 63 into releaseDate                    --CHANGE
  1285.   hide card field id releaseDate
  1286. end mouseUp
  1287.  
  1288. on go
  1289.   GLOBAL AVAIL,RELEASEDATE
  1290.   put 31 into avail                           --CHANGES
  1291.   put 63 into releaseDate
  1292.   RELEASE
  1293. END GO
  1294.  
  1295.  
  1296.  
  1297.  
  1298.  
  1299.  
  1300.  
  1301.  
  1302.  
  1303.  
  1304.  
  1305.  
  1306.  
  1307.  
  1308.  
  1309.  
  1310.  
  1311.  
  1312. -- part 151 (button)
  1313. -- low flags: 00
  1314. -- high flags: 0000
  1315. -- rect: left=372 top=65 right=85 bottom=424
  1316. -- title width / last selected line: 0
  1317. -- icon id / first selected line: 0 / 0
  1318. -- text alignment: 1
  1319. -- font id: 0
  1320. -- text size: 12
  1321. -- style flags: 0
  1322. -- line height: 16
  1323. -- part name: 
  1324. ----- HyperTalk script -----
  1325. on mouseUp
  1326.   beep
  1327.   if hilite of me is false then exit mouseUp
  1328.   SHOW CARD FIELD "PUB" at the mouseh, the mousev
  1329. end mouseUp
  1330.  
  1331. on go
  1332.  
  1333.   put 32 into standby
  1334.  
  1335.   if hilite of me is true then
  1336.     set the hilite of me to false
  1337.     set the hilite of button standby to true
  1338.   end if
  1339.  
  1340.  
  1341. end go
  1342.  
  1343.  
  1344.  
  1345.  
  1346.  
  1347. -- part 152 (button)
  1348. -- low flags: 00
  1349. -- high flags: 4000
  1350. -- rect: left=372 top=84 right=108 bottom=424
  1351. -- title width / last selected line: 0
  1352. -- icon id / first selected line: 0 / 0
  1353. -- text alignment: 1
  1354. -- font id: 0
  1355. -- text size: 12
  1356. -- style flags: 0
  1357. -- line height: 16
  1358. -- part name: 
  1359. ----- HyperTalk script -----
  1360. on mouseup
  1361.   beep
  1362. end mouseup
  1363.  
  1364.  
  1365.  
  1366.  
  1367. -- part 175 (button)
  1368. -- low flags: 00
  1369. -- high flags: 0000
  1370. -- rect: left=372 top=108 right=132 bottom=424
  1371. -- title width / last selected line: 0
  1372. -- icon id / first selected line: 0 / 0
  1373. -- text alignment: 1
  1374. -- font id: 0
  1375. -- text size: 12
  1376. -- style flags: 0
  1377. -- line height: 16
  1378. -- part name: 
  1379. ----- HyperTalk script -----
  1380. on mouseDown
  1381.   put 30 into released
  1382.   put 31 into avail
  1383.  
  1384.   if hilite of button released is true or hilite of button avail is true then
  1385.     beep
  1386.     show card field "nono" at the mouseh, the mousev
  1387.   end if
  1388. end mouseDown
  1389.  
  1390. on mouseUp
  1391.   global warning
  1392.   put 32 into standby
  1393.   put "183,180" into coord               --CHANGES
  1394.   put 57 into idplane
  1395.  
  1396.   if hilite of button standby is true then
  1397.     if warning is not "L" and warning is not "N" then
  1398.       set hilite of button standby to false
  1399.       set hilite of ME to true
  1400.  
  1401.       show button id idplane of card "map" at coord
  1402.     else
  1403.       beep
  1404.       show card field "outOfRange" at the mouseh, the mousev
  1405.     end if
  1406.   end if
  1407.   hide card field "nono"
  1408. end mouseUp
  1409.  
  1410. on go
  1411.   put 32 into standby
  1412.   put "183,180" into coord               --CHANGES
  1413.   put 57 into idplane
  1414.   set hilite of me to false
  1415.   set hilite of button standby to true
  1416.  
  1417.   hide button id idplane of card "map"
  1418.  
  1419. end go
  1420.  
  1421.  
  1422.  
  1423.  
  1424.  
  1425. -- part 154 (button)
  1426. -- low flags: 00
  1427. -- high flags: 0000
  1428. -- rect: left=372 top=144 right=172 bottom=424
  1429. -- title width / last selected line: 0
  1430. -- icon id / first selected line: 0 / 0
  1431. -- text alignment: 1
  1432. -- font id: 0
  1433. -- text size: 12
  1434. -- style flags: 0
  1435. -- line height: 16
  1436. -- part name: SQ253B
  1437. ----- HyperTalk script -----
  1438. on mouseUp
  1439.   --global warning,objective,range,range2
  1440.   global avail,standby,patrol,detail,idplane,enroute,warning
  1441.   if warning is empty then
  1442.     beep
  1443.     show card field "whatraid" at the mouseh, the mousev
  1444.     exit mouseUp
  1445.   end if
  1446.  
  1447.   put 31 into avail
  1448.   put 32 into standby
  1449.   put 33 into patrol
  1450.   put 34 into detail                                         --CHANGES
  1451.   put 57 into idplane
  1452.   put "B" into enroute
  1453.   detail
  1454. end mouseUp
  1455.  
  1456. on go
  1457.   global numSquads,force,avail,standby,patrol,detail,idplane
  1458.   put 31 into avail
  1459.   put 32 into standby
  1460.   put 33 into patrol
  1461.   put 34 into detail                                         --CHANGES
  1462.   put 57 into idplane
  1463.   put 170 into sorties
  1464.   if hilite of button patrol is true or hilite of button standby is true then
  1465.     add 2 to force                                        --CHANGES
  1466.     set hilite of button patrol to false
  1467.     set hilite of button standby to false
  1468.   end if
  1469.   if hilite of button avail is true then add 1.5 to force     --CHANGES
  1470.   put the length of card field id sorties into exp
  1471.   divide exp by 20
  1472.   add exp to force
  1473.   put "/" after card field id sorties
  1474.   goa
  1475. end go
  1476.  
  1477.  
  1478. on results
  1479.   global damage,force,bforce,fforce,done
  1480.   global released,avail,releaseDate,base,coord,idplane,sorties
  1481.   put 30 into released
  1482.   put 31 into avail
  1483.   put 63 into releaseDate                                 --CHANGES
  1484.   put "B" into base
  1485.   put "183,180" into coord
  1486.   put 57 into idplane
  1487.   put 170 into sorties
  1488.   resultsa
  1489. end results
  1490.  
  1491.  
  1492.  
  1493.  
  1494.  
  1495.  
  1496.  
  1497.  
  1498.  
  1499.  
  1500.  
  1501.  
  1502.  
  1503.  
  1504. -- part 155 (button)
  1505. -- low flags: 00
  1506. -- high flags: 0000
  1507. -- rect: left=372 top=171 right=201 bottom=424
  1508. -- title width / last selected line: 0
  1509. -- icon id / first selected line: 0 / 0
  1510. -- text alignment: 1
  1511. -- font id: 0
  1512. -- text size: 12
  1513. -- style flags: 0
  1514. -- line height: 16
  1515. -- part name: 
  1516. ----- HyperTalk script -----
  1517. on mouseUp
  1518.   global coord,patrol,detail,idplane
  1519.   put "183,180" into coord
  1520.   put 33 into patrol
  1521.   put 34 into detail                                          --CHANGES
  1522.   put 57 into idplane
  1523.   land
  1524. end mouseUp
  1525.  
  1526.  
  1527.  
  1528.  
  1529.  
  1530.  
  1531. -- part 156 (button)
  1532. -- low flags: 00
  1533. -- high flags: 0000
  1534. -- rect: left=372 top=200 right=229 bottom=424
  1535. -- title width / last selected line: 0
  1536. -- icon id / first selected line: 0 / 0
  1537. -- text alignment: 1
  1538. -- font id: 0
  1539. -- text size: 12
  1540. -- style flags: 0
  1541. -- line height: 16
  1542. -- part name: 
  1543. ----- HyperTalk script -----
  1544. on mouseUp
  1545.   beep
  1546. end mouseUp
  1547.  
  1548.  
  1549.  
  1550. -- part 157 (button)
  1551. -- low flags: 00
  1552. -- high flags: 0000
  1553. -- rect: left=436 top=43 right=67 bottom=488
  1554. -- title width / last selected line: 0
  1555. -- icon id / first selected line: 0 / 0
  1556. -- text alignment: 1
  1557. -- font id: 0
  1558. -- text size: 12
  1559. -- style flags: 0
  1560. -- line height: 16
  1561. -- part name: 
  1562. ----- HyperTalk script -----
  1563. on mouseDown
  1564.   put 37 into released
  1565.   put 109 into releaseDate
  1566.  
  1567.   if hilite of button released is true then
  1568.     show card field  id releaseDate at the mouseh, the mousev
  1569.   end if
  1570. end mouseDown
  1571. on mouseUp
  1572.   put 109 into releaseDate
  1573.   hide card field id releaseDate
  1574. end mouseUp
  1575.  
  1576. on go
  1577.   put 37 into released
  1578.   put 38 into avail
  1579.   put 109 into releaseDate
  1580.  
  1581.   subtract 1 from word 2 of line 2 of card field id releaseDate
  1582.   if word 2 of line 2 of card field id releaseDate is 1 then
  1583.     put DAY into word 3 of line 2 of card field id releaseDate
  1584.   else
  1585.     put DAYS into word 3 of line 2 of card field id releaseDate
  1586.     if word 2 of line 2 of card field id releaseDate <1 then
  1587.       put 4 into word 2 of line 2 of card field id releaseDate
  1588.       set hilite of button released to false
  1589.       set hilite of button avail to true
  1590.     end if
  1591.   end if
  1592. end go
  1593.  
  1594.  
  1595.  
  1596.  
  1597.  
  1598.  
  1599.  
  1600.  
  1601.  
  1602.  
  1603.  
  1604.  
  1605.  
  1606.  
  1607.  
  1608.  
  1609.  
  1610. -- part 158 (button)
  1611. -- low flags: 00
  1612. -- high flags: 0000
  1613. -- rect: left=436 top=66 right=85 bottom=488
  1614. -- title width / last selected line: 0
  1615. -- icon id / first selected line: 0 / 0
  1616. -- text alignment: 1
  1617. -- font id: 0
  1618. -- text size: 12
  1619. -- style flags: 0
  1620. -- line height: 16
  1621. -- part name: 
  1622. ----- HyperTalk script -----
  1623. on mouseUp
  1624.   beep
  1625.   if hilite of me is false then exit mouseUp
  1626.   SHOW CARD FIELD "PUB" at the mouseh, the mousev
  1627. end mouseUp
  1628.  
  1629. on go
  1630.  
  1631.   put 39 into standby
  1632.  
  1633.   if hilite of me is true then
  1634.     set the hilite of me to false
  1635.     set the hilite of button standby to true
  1636.   end if
  1637.  
  1638.  
  1639. end go
  1640.  
  1641.  
  1642.  
  1643.  
  1644. -- part 159 (button)
  1645. -- low flags: 00
  1646. -- high flags: 4000
  1647. -- rect: left=436 top=84 right=107 bottom=488
  1648. -- title width / last selected line: 0
  1649. -- icon id / first selected line: 0 / 0
  1650. -- text alignment: 1
  1651. -- font id: 0
  1652. -- text size: 12
  1653. -- style flags: 0
  1654. -- line height: 16
  1655. -- part name: 
  1656. ----- HyperTalk script -----
  1657. on mouseup
  1658.   beep
  1659. end mouseup
  1660.  
  1661.  
  1662.  
  1663.  
  1664. -- part 160 (button)
  1665. -- low flags: 00
  1666. -- high flags: 0000
  1667. -- rect: left=436 top=106 right=132 bottom=488
  1668. -- title width / last selected line: 0
  1669. -- icon id / first selected line: 0 / 0
  1670. -- text alignment: 1
  1671. -- font id: 0
  1672. -- text size: 12
  1673. -- style flags: 0
  1674. -- line height: 16
  1675. -- part name: 
  1676. ----- HyperTalk script -----
  1677. on mouseDown
  1678.   put 37 into released             -- CHANGES
  1679.   put 38 into avail
  1680.  
  1681.   if hilite of button released is true or hilite of button avail is true then
  1682.     beep
  1683.     show card field "nono" at the mouseh, the mousev
  1684.   end if
  1685. end mouseDown
  1686.  
  1687. on mouseUp
  1688.   global warning
  1689.   put 39 into standby
  1690.   put "168,187" into coord
  1691.   put 61 into idplane
  1692.  
  1693.   if hilite of button standby is true then
  1694.     if warning is not "L" and warning is not "N" then
  1695.       set hilite of button standby to false
  1696.       set hilite of ME to true
  1697.  
  1698.       show button id idplane of card "map" at coord
  1699.     else
  1700.       beep
  1701.       show card field "outOfRange" at the mouseh, the mousev
  1702.     end if
  1703.   end if
  1704.   hide card field "nono"
  1705. end mouseUp
  1706. on go
  1707.   put 39 into standby
  1708.   put "168,187" into coord
  1709.   put 61 into idplane
  1710.  
  1711.   set hilite of me to false
  1712.   set hilite of button standby to true
  1713.  
  1714.   hide button id idplane of card "map"
  1715.  
  1716. end go
  1717.  
  1718.  
  1719.  
  1720.  
  1721.  
  1722.  
  1723.  
  1724. -- part 161 (button)
  1725. -- low flags: 00
  1726. -- high flags: 0000
  1727. -- rect: left=436 top=144 right=172 bottom=488
  1728. -- title width / last selected line: 0
  1729. -- icon id / first selected line: 0 / 0
  1730. -- text alignment: 1
  1731. -- font id: 0
  1732. -- text size: 12
  1733. -- style flags: 0
  1734. -- line height: 16
  1735. -- part name: SQ616B
  1736. ----- HyperTalk script -----
  1737. on mouseUp
  1738.   --global warning,objective,range,range2
  1739.   global avail,standby,patrol,detail,idplane,enroute,warning
  1740.   if warning is empty then
  1741.     beep
  1742.     show card field "whatraid" at the mouseh, the mousev
  1743.     exit mouseUp
  1744.   end if
  1745.  
  1746.   put 38 into avail
  1747.   put 39 into standby
  1748.   put 40 into patrol
  1749.   put 41 into detail                                         --CHANGES
  1750.   put 61 into idplane
  1751.   put "B" into enroute
  1752.   detail
  1753. end mouseUp
  1754.  
  1755. on go
  1756.   global numSquads,force,avail,standby,patrol,detail,idplane
  1757.   put 38 into avail
  1758.   put 39 into standby
  1759.   put 40 into patrol
  1760.   put 41 into detail                                         --CHANGES
  1761.   put 61 into idplane
  1762.   put 171 into sorties
  1763.   if hilite of button patrol is true or hilite of button standby is true then
  1764.     add 3 to force                                        --CHANGES
  1765.     set hilite of button patrol to false
  1766.     set hilite of button standby to false
  1767.   end if
  1768.   if hilite of button avail is true then add 2 to force     --CHANGES
  1769.   put the length of card field id sorties into exp
  1770.   divide exp by 20
  1771.   add exp to force
  1772.   put "/" after card field id sorties
  1773.   goa
  1774. end go
  1775.  
  1776.  
  1777. on results
  1778.   global damage,force,bforce,fforce,done
  1779.   global released,avail,releaseDate,base,coord,idplane,sorties
  1780.   put 37 into released
  1781.   put 38 into avail
  1782.   put 109 into releaseDate                                 --CHANGES
  1783.   put "B" into base
  1784.   put "168,187" into coord
  1785.   put 61 into idplane
  1786.   put 171 into sorties
  1787.   resultsa
  1788. end results
  1789.  
  1790.  
  1791.  
  1792.  
  1793.  
  1794.  
  1795.  
  1796.  
  1797.  
  1798.  
  1799.  
  1800.  
  1801. -- part 162 (button)
  1802. -- low flags: 00
  1803. -- high flags: 0000
  1804. -- rect: left=436 top=171 right=201 bottom=488
  1805. -- title width / last selected line: 0
  1806. -- icon id / first selected line: 0 / 0
  1807. -- text alignment: 1
  1808. -- font id: 0
  1809. -- text size: 12
  1810. -- style flags: 0
  1811. -- line height: 16
  1812. -- part name: 
  1813. ----- HyperTalk script -----
  1814. on mouseUp
  1815.   global coord,patrol,detail,idplane
  1816.   put "168,187" into coord
  1817.   put 40 into patrol
  1818.   put 41 into detail                                          --CHANGES
  1819.   put 61 into idplane
  1820.   land
  1821. end mouseUp
  1822.  
  1823.  
  1824.  
  1825.  
  1826. -- part 169 (field)
  1827. -- low flags: 00
  1828. -- high flags: 0000
  1829. -- rect: left=315 top=254 right=307 bottom=351
  1830. -- title width / last selected line: 0
  1831. -- icon id / first selected line: 0 / 0
  1832. -- text alignment: 0
  1833. -- font id: 3
  1834. -- text size: 9
  1835. -- style flags: 0
  1836. -- line height: 10
  1837. -- part name: sorties
  1838.  
  1839.  
  1840. -- part 170 (field)
  1841. -- low flags: 00
  1842. -- high flags: 0000
  1843. -- rect: left=379 top=254 right=307 bottom=415
  1844. -- title width / last selected line: 0
  1845. -- icon id / first selected line: 0 / 0
  1846. -- text alignment: 0
  1847. -- font id: 3
  1848. -- text size: 9
  1849. -- style flags: 0
  1850. -- line height: 10
  1851. -- part name: sorties
  1852.  
  1853.  
  1854. -- part 171 (field)
  1855. -- low flags: 00
  1856. -- high flags: 0000
  1857. -- rect: left=443 top=254 right=307 bottom=479
  1858. -- title width / last selected line: 0
  1859. -- icon id / first selected line: 0 / 0
  1860. -- text alignment: 0
  1861. -- font id: 3
  1862. -- text size: 9
  1863. -- style flags: 0
  1864. -- line height: 10
  1865. -- part name: sorties
  1866.  
  1867.  
  1868. -- part 168 (field)
  1869. -- low flags: 00
  1870. -- high flags: 0000
  1871. -- rect: left=251 top=254 right=308 bottom=288
  1872. -- title width / last selected line: 0
  1873. -- icon id / first selected line: 0 / 0
  1874. -- text alignment: 0
  1875. -- font id: 3
  1876. -- text size: 9
  1877. -- style flags: 0
  1878. -- line height: 10
  1879. -- part name: sorties
  1880.  
  1881.  
  1882. -- part 167 (field)
  1883. -- low flags: 00
  1884. -- high flags: 0000
  1885. -- rect: left=187 top=254 right=307 bottom=224
  1886. -- title width / last selected line: 0
  1887. -- icon id / first selected line: 0 / 0
  1888. -- text alignment: 0
  1889. -- font id: 3
  1890. -- text size: 9
  1891. -- style flags: 0
  1892. -- line height: 10
  1893. -- part name: sorties
  1894.  
  1895.  
  1896. -- part 166 (field)
  1897. -- low flags: 00
  1898. -- high flags: 0000
  1899. -- rect: left=123 top=254 right=307 bottom=160
  1900. -- title width / last selected line: 0
  1901. -- icon id / first selected line: 0 / 0
  1902. -- text alignment: 0
  1903. -- font id: 3
  1904. -- text size: 9
  1905. -- style flags: 0
  1906. -- line height: 10
  1907. -- part name: sorties
  1908.  
  1909.  
  1910. -- part 163 (button)
  1911. -- low flags: 00
  1912. -- high flags: 0000
  1913. -- rect: left=436 top=200 right=229 bottom=488
  1914. -- title width / last selected line: 0
  1915. -- icon id / first selected line: 0 / 0
  1916. -- text alignment: 1
  1917. -- font id: 0
  1918. -- text size: 12
  1919. -- style flags: 0
  1920. -- line height: 16
  1921. -- part name: 
  1922. ----- HyperTalk script -----
  1923. on mouseUp
  1924.   beep
  1925. end mouseUp
  1926.  
  1927.  
  1928.  
  1929.  
  1930. -- part 31 (field)
  1931. -- low flags: 01
  1932. -- high flags: 0001
  1933. -- rect: left=308 top=0 right=342 bottom=512
  1934. -- title width / last selected line: 0
  1935. -- icon id / first selected line: 0 / 0
  1936. -- text alignment: 0
  1937. -- font id: 3
  1938. -- text size: 12
  1939. -- style flags: 0
  1940. -- line height: 16
  1941. -- part name: hideSquads
  1942.  
  1943.  
  1944. -- part 165 (field)
  1945. -- low flags: 81
  1946. -- high flags: 2004
  1947. -- rect: left=426 top=142 right=167 bottom=482
  1948. -- title width / last selected line: 0
  1949. -- icon id / first selected line: 0 / 0
  1950. -- text alignment: 1
  1951. -- font id: 3
  1952. -- text size: 10
  1953. -- style flags: 0
  1954. -- line height: 12
  1955. -- part name: outOfRange
  1956. ----- HyperTalk script -----
  1957. --on no
  1958. -- beep
  1959. -- show card field "outOfRange" at the mouseh, the mousev
  1960.  
  1961. --end no
  1962.  
  1963. on mouseUp
  1964.   hide card field "outOfRange"
  1965. end mouseUp
  1966.  
  1967.  
  1968. -- part 109 (field)
  1969. -- low flags: 81
  1970. -- high flags: 2004
  1971. -- rect: left=408 top=34 right=89 bottom=483
  1972. -- title width / last selected line: 0
  1973. -- icon id / first selected line: 0 / 0
  1974. -- text alignment: 1
  1975. -- font id: 3
  1976. -- text size: 9
  1977. -- style flags: 0
  1978. -- line height: 10
  1979. -- part name: releaseDate6
  1980. ----- HyperTalk script -----
  1981. on mouseUp
  1982.   hide card field "releaseDate6"
  1983. end mouseUp
  1984.  
  1985.  
  1986.  
  1987. -- part 61 (field)
  1988. -- low flags: 81
  1989. -- high flags: 2004
  1990. -- rect: left=236 top=32 right=88 bottom=310
  1991. -- title width / last selected line: 0
  1992. -- icon id / first selected line: 0 / 0
  1993. -- text alignment: 1
  1994. -- font id: 3
  1995. -- text size: 9
  1996. -- style flags: 0
  1997. -- line height: 10
  1998. -- part name: releaseDate3
  1999. ----- HyperTalk script -----
  2000. on mouseUp
  2001.   hide card field "releaseDate3"
  2002. end mouseUp
  2003.  
  2004.  
  2005.  
  2006. -- part 62 (field)
  2007. -- low flags: 81
  2008. -- high flags: 2004
  2009. -- rect: left=274 top=32 right=86 bottom=349
  2010. -- title width / last selected line: 0
  2011. -- icon id / first selected line: 0 / 0
  2012. -- text alignment: 1
  2013. -- font id: 3
  2014. -- text size: 9
  2015. -- style flags: 0
  2016. -- line height: 10
  2017. -- part name: releaseDate4
  2018. ----- HyperTalk script -----
  2019. on mouseUp
  2020.   hide card field "releaseDate4"
  2021. end mouseUp
  2022.  
  2023.  
  2024.  
  2025. -- part 28 (field)
  2026. -- low flags: 81
  2027. -- high flags: 2004
  2028. -- rect: left=104 top=31 right=87 bottom=181
  2029. -- title width / last selected line: 0
  2030. -- icon id / first selected line: 0 / 0
  2031. -- text alignment: 1
  2032. -- font id: 3
  2033. -- text size: 9
  2034. -- style flags: 0
  2035. -- line height: 10
  2036. -- part name: releaseDate
  2037. ----- HyperTalk script -----
  2038. on mouseUp
  2039.   hide card field "releaseDate"
  2040. end mouseUp
  2041.  
  2042.  
  2043.  
  2044. -- part 16 (field)
  2045. -- low flags: 81
  2046. -- high flags: 0004
  2047. -- rect: left=99 top=89 right=158 bottom=187
  2048. -- title width / last selected line: 0
  2049. -- icon id / first selected line: 0 / 0
  2050. -- text alignment: 1
  2051. -- font id: 3
  2052. -- text size: 9
  2053. -- style flags: 0
  2054. -- line height: 12
  2055. -- part name: nono
  2056. ----- HyperTalk script -----
  2057. on mouseUp
  2058.   hide card field id 16
  2059. end mouseUp
  2060.  
  2061.  
  2062.  
  2063. -- part 173 (field)
  2064. -- low flags: 81
  2065. -- high flags: 2004
  2066. -- rect: left=103 top=67 right=91 bottom=168
  2067. -- title width / last selected line: 0
  2068. -- icon id / first selected line: 0 / 0
  2069. -- text alignment: 1
  2070. -- font id: 3
  2071. -- text size: 9
  2072. -- style flags: 0
  2073. -- line height: 10
  2074. -- part name: PUB
  2075. ----- HyperTalk script -----
  2076. ON MOUSEUP
  2077.   HIDE card field "pub"
  2078. END MOUSEUP
  2079.  
  2080.  
  2081.  
  2082.  
  2083. -- part 174 (field)
  2084. -- low flags: 81
  2085. -- high flags: 2004
  2086. -- rect: left=95 top=134 right=176 bottom=169
  2087. -- title width / last selected line: 0
  2088. -- icon id / first selected line: 0 / 0
  2089. -- text alignment: 1
  2090. -- font id: 3
  2091. -- text size: 9
  2092. -- style flags: 0
  2093. -- line height: 10
  2094. -- part name: whatRaid
  2095. ----- HyperTalk script -----
  2096. on mouseUp
  2097.   hide card field "whatRaid"
  2098. end mouseUp
  2099.  
  2100.  
  2101. -- part 63 (field)
  2102. -- low flags: 81
  2103. -- high flags: 2004
  2104. -- rect: left=355 top=31 right=85 bottom=430
  2105. -- title width / last selected line: 0
  2106. -- icon id / first selected line: 0 / 0
  2107. -- text alignment: 1
  2108. -- font id: 3
  2109. -- text size: 9
  2110. -- style flags: 0
  2111. -- line height: 10
  2112. -- part name: releaseDate5
  2113. ----- HyperTalk script -----
  2114. on mouseUp
  2115.   hide card field "releaseDate5"
  2116. end mouseUp
  2117.  
  2118.  
  2119.  
  2120. -- part 176 (field)
  2121. -- low flags: 81
  2122. -- high flags: 2004
  2123. -- rect: left=103 top=8 right=107 bottom=502
  2124. -- title width / last selected line: 0
  2125. -- icon id / first selected line: 0 / 0
  2126. -- text alignment: 1
  2127. -- font id: 2
  2128. -- text size: 20
  2129. -- style flags: 8192
  2130. -- line height: 22
  2131. -- part name: shutdown
  2132.  
  2133.  
  2134. -- part contents for card part 16
  2135. ----- text -----
  2136. You cannot order a RELEASED or AVAILABLE squadron on patrol.
  2137.  
  2138. -- part contents for card part 60
  2139. ----- text -----
  2140. AVAILABLE
  2141. IN 1 DAY
  2142. PATCHING UP PLANES
  2143.  
  2144. -- part contents for card part 61
  2145. ----- text -----
  2146. AVAILABLE
  2147. IN 0 DAYS
  2148. AWAITING AIRCRAFT
  2149.  
  2150. -- part contents for card part 62
  2151. ----- text -----
  2152. AVAILABLE
  2153. IN 0 DAYS
  2154. PATCHING UP PLANES
  2155.  
  2156.  
  2157. -- part contents for card part 63
  2158. ----- text -----
  2159. AVAILABLE
  2160. IN 0 DAYS
  2161. PATCHING UP PLANES
  2162.  
  2163.  
  2164. -- part contents for card part 109
  2165. ----- text -----
  2166. AVAILABLE
  2167. IN 4 DAYS
  2168. PATCHING UP PLANES
  2169.  
  2170.  
  2171. -- part contents for card part 165
  2172. ----- text -----
  2173. Too Far.
  2174.  
  2175. -- part contents for card part 28
  2176. ----- text -----
  2177. AVAILABLE
  2178. IN 1 DAY
  2179. PATCHING UP PLANES
  2180.  
  2181.  
  2182. -- part contents for card part 173
  2183. ----- text -----
  2184. At the pub.
  2185.  
  2186. -- part contents for card part 174
  2187. ----- text -----
  2188.  
  2189. What raid?
  2190.  
  2191. -- part contents for card part 176
  2192. ----- text -----
  2193. DUE TO  BOMB DAMAGE 
  2194. NORMAL OPERATIONS AT THIS AERODROME ARE TEMPORARILY DISRUPTED.